#every census tract AND every retailer sales
dec_retailers <- readRDS("../../../data/processed/03_join_retailers/dec_retailers_w_demo.rds") %>%
select(state:total_sales, joint_latitude, joint_longitude)
#tract-level sales info
dec_tract_sales <- readRDS("../../../data/processed/03_join_retailers/dec_tract_sales.rds")
states_with_sales = c("Arizona", "Louisiana", "Michigan", "New York", "South Carolina", "Texas")
Extra McAllen, TX stuff
Binding geoms
retailer_race_map